home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / wnos5src.zip / IPCMD.C < prev    next >
Text File  |  1993-08-09  |  6KB  |  263 lines
  1. /* IP-related user commands */
  2. #include <stdio.h>
  3. #include "global.h"
  4. #include "mbuf.h"
  5. #include "internet.h"
  6. #include "timer.h"
  7. #include "netuser.h"
  8. #include "iface.h"
  9. #include "ip.h"
  10. #include "cmdparse.h"
  11. #include "commands.h"
  12. #include "socket.h"
  13.  
  14. /* Dump a routing table entry */
  15. static void near
  16. dumproute(struct route *rp)
  17. {
  18.     tprintf("%-17.17s%-4u",
  19.         rp->target ? inet_ntoa(rp->target) : "default",
  20.         rp->bits);
  21.     tprintf("%-7.7s%-17.17s",
  22.         rp->iface->name,
  23.         rp->gateway ? inet_ntoa(rp->gateway) : "");
  24.     tprintf("%-8lu%c %-7lu%lu\n",
  25.         rp->metric,
  26.         (rp->flags & RTPRIVATE) ? 'P' : ' ',
  27.         read_timer(&rp->timer)/1000L,
  28.         rp->uses);
  29.     return;
  30. }
  31.  
  32. /* ------------------------ IP subcmds ------------------------ */
  33.  
  34. static int
  35. doipaddr(int argc,char **argv,void *p)
  36. {
  37.     int32 n;
  38.  
  39.     if(argc < 2) {
  40.         tprintf("%s\n",inet_ntoa(Ip_addr));
  41.     } else if((n = resolve(argv[1])) == 0){
  42.         tprintf(Badhost,argv[1]);
  43.         return -1;
  44.     } else {
  45.         Ip_addr = n;
  46.     }
  47.     return 0;
  48. }
  49.  
  50. static int
  51. dortimer(int argc,char **argv,void *p)
  52. {
  53.     return setlong(&ipReasmTimeout,"IP reasm timeout (sec)",argc,argv);
  54. }
  55.  
  56. static int
  57. doipstat(int argc,char **argv,void *p)
  58. {
  59.     int i;
  60.  
  61.     for(i = 1; i <= NUMIPMIB; i++){
  62.         tprintf("(%2u)ip%-18s%10lu",
  63.             i,Ip_mib[i].name,Ip_mib[i].value.integer);
  64.         tputs((i % 2) ? "     " : "\n");
  65.     }
  66.     if((i % 2) == 0)
  67.         tputs("\n");
  68.  
  69.     if(Reasmq != NULLREASM) {
  70.         struct reasm *rp;
  71.         struct frag *fp;
  72.  
  73.         tputs("Reassembly fragments:\n");
  74.         for(rp = Reasmq; rp != NULLREASM; rp = rp->next){
  75.             tprintf("src %s",inet_ntoa(rp->source));
  76.             tprintf(" dest %s",inet_ntoa(rp->dest));
  77.             tprintf(" id %u pctl %u time %lu len %u\n",
  78.                 rp->id,uchar(rp->protocol),read_timer(&rp->timer),rp->length);
  79.             for(fp = rp->fraglist; fp != NULLFRAG; fp = fp->next)
  80.                 tprintf(" offset %u last %u\n",fp->offset,fp->last);
  81.         }
  82.     }
  83.     return 0;
  84. }
  85.  
  86. static int
  87. dottl(int argc,char **argv,void *p)
  88. {
  89.     return setlong(&ipDefaultTTL,"IP TTL",argc,argv);
  90. }
  91.  
  92. int
  93. doip(int argc,char **argv,void *p)
  94. {
  95.     static struct cmds Ipcmds[] = {
  96.         "address",    doipaddr,    0,    0, NULLCHAR,
  97.         "rtimer",    dortimer,    0,    0, NULLCHAR,
  98.         "status",    doipstat,    0,    0, NULLCHAR,
  99.         "ttl",        dottl,        0,    0, NULLCHAR,
  100.         NULLCHAR,
  101.     };
  102.     return subcmd(Ipcmds,argc,argv,p);
  103. }
  104.  
  105.  
  106. /* --------------------------- route subcmds ------------------------ */
  107.  
  108. /* Add an entry to the routing table
  109.  * E.g., "add 1.2.3.4 ax0 5.6.7.8 3"
  110.  */
  111. static int
  112. doadd(int argc,char **argv,void *p)
  113. {
  114.     struct iface *ifp;
  115.     int32 dest = 0, gateway = 0;
  116.     unsigned bits = 0;
  117.  
  118.     int32 metric = (argc > 4) ? atol(argv[4]) : 1;
  119.     char private = (strncmp(argv[0],"addp",4) == 0) ? 1 : 0;
  120.  
  121.     if((ifp = if_lookup(argv[2])) == NULLIF){
  122.         tprintf(Badif,argv[2]);
  123.         return 1;
  124.     }
  125.     if(strcmp(argv[1],"default") != 0) {
  126.         char *bitp;
  127.  
  128.         /* If IP address is followed by an optional slash and
  129.          * a length field, (e.g., 128.96/16) get it;
  130.          * otherwise assume a full 32-bit address
  131.          */
  132.         if((bitp = strchr(argv[1],'/')) != NULLCHAR){
  133.             /* Terminate address token for resolve() call */
  134.             *bitp++ = '\0';
  135.             bits = atoi(bitp);
  136.         } else {
  137.             bits = 32;
  138.         }
  139.         if((dest = resolve(argv[1])) == 0){
  140.             tprintf(Badhost,argv[1]);
  141.             return 1;
  142.         }
  143.     }
  144.     if(argc > 3) {
  145.         if((gateway = resolve(argv[3])) == 0){
  146.             tprintf(Badhost,argv[3]);
  147.             return 1;
  148.         }
  149.     }
  150.     if(rt_add(dest,bits,gateway,ifp,metric,0,private) == NULLROUTE)
  151.         tputs("Can't add route\n");
  152.     return 0;
  153. }
  154.  
  155. /* Drop an entry from the routing table
  156.  * E.g., "drop 128.96/16
  157.  */
  158. static int
  159. dodrop(int argc,char **argv,void *p)
  160. {
  161.     unsigned bits = 0;
  162.     int32 dest = 0;
  163.  
  164.     if(strcmp(argv[1],"default") != 0) {
  165.         char *bitp;
  166.  
  167.         /* If IP address is followed by an optional slash and length field,
  168.          * (e.g., 128.96/16) get it; otherwise assume a full 32-bit address
  169.          */
  170.         if((bitp = strchr(argv[1],'/')) != NULLCHAR){
  171.             *bitp++ = '\0';
  172.             bits = atoi(bitp);
  173.         } else {
  174.             bits = 32;
  175.         }
  176.         if((dest = resolve(argv[1])) == 0) {
  177.             tprintf(Badhost,argv[1]);
  178.             return 1;
  179.         }
  180.     }
  181.     return rt_drop(dest,bits);
  182. }
  183.  
  184. /* Force a timeout on all temporary routes */
  185. static int
  186. doflush(int argc,char **argv,void *p)
  187. {
  188.     struct route *rp, *rptmp;
  189.  
  190.     if(R_default.timer.state == TIMER_RUN)
  191.         rt_drop(0,0);    /* Drop default route */
  192.  
  193.     for(rp = Routes; rp != NULLROUTE; rp = rptmp) {
  194.         rptmp = rp->next;
  195.         if(rp->timer.state == TIMER_RUN)
  196.             rt_drop(rp->target,rp->bits);
  197.     }
  198.     return 0;
  199. }
  200.  
  201. static int
  202. dolook(int argc,char **argv,void *p)
  203. {
  204.     struct route *rp;
  205.     int32 addr;
  206.  
  207.     if((addr = resolve(argv[1])) == 0) {
  208.         tprintf(Badhost,argv[1]);
  209.         return 1;
  210.     }
  211.     if((rp = rt_lookup(addr)) == NULLROUTE){
  212.         tprintf("Host %s (%s) unreachable\n",argv[1],inet_ntoa(addr));
  213.         return 1;
  214.     }
  215.     dumproute(rp);
  216.     return 0;
  217. }
  218.  
  219. /* Display and/or manipulate routing table */
  220. int
  221. doroute(int argc,char **argv,void *p)
  222. {
  223.     struct route *rp;
  224.  
  225.     struct cmds Rtcmds[] = {
  226.         "add",        doadd,        0,    3,
  227.         "route add <dest addr>[/<bits>] <iface> [gateway] [metric]",
  228.  
  229.         "addprivate",    doadd,        0,    3,
  230.         "route addprivate <dest addr>[/<bits>] <iface> [gateway] [metric]",
  231.  
  232.         "drop",        dodrop,        0,    2,
  233.         "route drop <dest addr>[/<bits>]",
  234.  
  235.         "flush",    doflush,    0,    0,
  236.         NULLCHAR,
  237.  
  238.         "lookup",    dolook,        0,    2,
  239.         "route lookup <dest addr>",
  240.  
  241.         NULLCHAR,
  242.     };
  243.  
  244.     if(argc >= 2)
  245.         return subcmd(Rtcmds,argc,argv,p);
  246.  
  247.     /* Dump IP routing table
  248.      * Dest            Len Interface    Gateway          Use
  249.      * 192.001.002.003 32  sl0          192.002.003.004  0
  250.      */
  251.     tputs("Dest             Len Iface  Gateway          "
  252.           "Metric  P Timer  Use\n");
  253.  
  254.     for(rp = Routes; rp != NULLROUTE; rp = rp->next)
  255.         dumproute(rp);
  256.  
  257.     if(R_default.iface != NULLIF)
  258.         dumproute(&R_default);
  259.  
  260.     return 0;
  261. }
  262.  
  263.